www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\admin_datarelate.asp
<!--#include file="admin_inc.asp"--> <% '**************************************************** 'Code for EptimeFFMS 'Vision : v4.0 '**************************************************** server.scripttimeout=99999 viewHead "数据库相关操作" & "-" & menuList(8,0) dim action : action = getForm("action", "get") dim sql : sql = getForm("sql","post") dim table : table= getForm("TableName","post") dim errIds Select case action case "sql" : executeSql case "result" : executeSql : executeResult End Select viewFoot Sub executeSql %><div class="container" id="cpcontainer"> <form method="post" action="?action=result"> <table class="tb"> <tr class="thead"><td>SQL高级助手</td></tr> <tr><td><input type="text" name="sql" size="90" value="<%=sql%>"> <input type="submit" class="btn" value="执行SQL语句"> <input type="reset" value="清除" class="btn"></td></tr> <tr><td> 1: 列出所有帐目 select * from shiwei_money<br/> 2: 列出所有大分类 select * from money_bigclass<br/> 3: 列出所有小分类 select * from money_smallclass<br/><br/> </td></tr> </table> </form></div> <script type="text/JavaScript">if(parent.$('admincpnav')) parent.$('admincpnav').innerHTML='首页 » <%=menuList(8,0)%> » SQL高级助手';</script> <% End Sub Sub executeResult dim isSelect,resultRs,errorFlag,errObj,fieldObj,i,exeResultNum,n : n=0 if not isNul(sql) then isSelect = (lcase(left(trim(Sql),6)) = "select") on error resume next if isSelect = true then Set resultRs = conn.dbConn.execute(sql,exeResultNum) else conn.dbConn.execute sql,exeResultNum If conn.dbConn.Errors.count<>0 then errorFlag = true : set resultRs = conn.dbConn.Errors else errorFlag = False if errorFlag then %> <table class="tb"> <tr> <td> 错误号</td><td> 来源</td><td> 描述</td><td>帮助</td><td> 帮助文档</td> </tr> <% for i=1 To conn.dbConn.Errors.count set errObj=conn.dbConn.Errors(i-1) %> <tr> <td> <% = errObj.Number %> </td><td> <% = errObj.Description %> </td><td> <% = errObj.Source %> </td><td> <% = errObj.Helpcontext %> </td><td> <% = errObj.HelpFile %> </td></tr> <% next %> </table> <% else %> <table class="tb"> <% if isSelect = true then %> <tr> <% for each fieldObj in resultRs.Fields %> <td nowrap class=forumrow> <% = fieldObj.name %></td> <% next %> </tr> <% do while Not resultRs.Eof n=n+1 : if n>100 then exit do %> <tr > <% for each fieldObj In resultRs.Fields %> <td nowrap class=forumrow> <% if isNul(fieldObj.value) then echo " " else if len(fieldObj.value)>50 then echo left(filterStr(fieldObj.value,"html"),10)&"..." else echo fieldObj.value end if %> </td> <% next %> </tr> <% resultRs.MoveNext loop else %> <tr> <td>执行结果</td></tr> <tr> <td> <% = exeResultNum & "条纪录被影响"%></td></tr> <%end if%> </table> <% end if end if Set resultRs = Nothing End Sub %>